R Notebook

library(DT)
dt <- DT::datatable(iris)
dt

Shiny

library(shiny)

Attaching package: ‘shiny’

The following objects are masked from ‘package:DT’:

    dataTableOutput,
    renderDataTable

fluidPage(
  headerPanel(
    "Shiny dashboard"
  ),
  sidebarLayout(
    # Sidebar with a slider input
    sidebarPanel(
      sliderInput("obs",
                  "Number of observations:",
                  min = 0,
                  max = 1000,
                  value = 500)
    ),

    # Show a plot of the generated distribution
    mainPanel(
      plotly::plot_ly(midwest, x = ~percollege, color = ~state, type = "box")
    )
  )
) |> showTag()

To stop the server, run servr::daemon_stop(3) or restart your R session
Serving the directory /Users/martinl/Github/110-2-interactive-data-visualization/temp at http://127.0.0.1:4321

plotly

tx5 <- jsonlite::fromJSON("https://www.dropbox.com/s/9yxq2g1a5vdywu6/tx5.json?dl=1") |>
  econIDV::as.Data() # this is only for this course to mark the object a data class

library(plotly)
plot_ly(tx5, x = ~date, y = ~median) %>%
  add_lines(linetype = ~city) -> plt
plt

ggplot(tx5, aes(x=date, y=median)) +
  geom_line(aes(linetype=city)) -> gg
gg

names(tx5)

plt <- function()
{plot_ly(tx5, x = ~date, y = ~median) %>%
    add_lines(linetype = ~city) -> plt
  plt}

plt()